home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / DTP / DTP_TEX / 2848F.ZIP / INPUTS2.ARC / LETTER.STY < prev    next >
Text File  |  1987-12-15  |  11KB  |  322 lines
  1. % letter.sty 20-Jul-87
  2.  
  3. \typeout{Document Style `letter' <20 Jul 87>.}
  4.  
  5. \def\@ptsize{0} \@namedef{ds@11pt}{\def\@ptsize{1}}
  6. \@namedef{ds@12pt}{\def\@ptsize{2}} 
  7. \@twosidefalse
  8. \def\ds@draft{\overfullrule 5pt} 
  9. \@options
  10.  
  11. \lineskip 1pt \normallineskip 1pt
  12. \def\baselinestretch{1}
  13.  
  14. \ifcase \@ptsize\relax 
  15. \def\@normalsize{\@setsize\normalsize{12pt}\xpt\@xpt 
  16. \abovedisplayskip 10pt plus2pt minus5pt\belowdisplayskip \abovedisplayskip
  17. \abovedisplayshortskip \z@ plus3pt\belowdisplayshortskip 6pt plus3pt minus3pt}
  18. \def\small{\@setsize\small{11pt}\ixpt\@ixpt
  19. \abovedisplayskip 8.5pt plus 3pt minus 4pt\belowdisplayskip \abovedisplayskip
  20. \abovedisplayshortskip \z@ plus2pt\belowdisplayshortskip 4pt plus2pt minus 2pt}
  21. \def\footnotesize{\@setsize\footnotesize{9.5pt}\viiipt\@viiipt
  22. \abovedisplayskip 6pt plus 2pt minus 4pt\belowdisplayskip \abovedisplayskip
  23. \abovedisplayshortskip \z@ plus 1pt\belowdisplayshortskip 3pt plus 1pt minus
  24. 2pt}
  25. \def\scriptsize{\@setsize\scriptsize{8pt}\viipt\@viipt}
  26. \def\tiny{\@setsize\tiny{6pt}\vpt\@vpt}
  27. \def\large{\@setsize\large{14pt}\xiipt\@xiipt}
  28. \def\Large{\@setsize\Large{18pt}\xivpt\@xivpt}
  29. \def\LARGE{\@setsize\LARGE{22pt}\xviipt\@xviipt}
  30. \def\huge{\@setsize\huge{25pt}\xxpt\@xxpt}
  31. \def\Huge{\@setsize\Huge{30pt}\xxvpt\@xxvpt}
  32. \or 
  33. \def\@normalsize{\@setsize\normalsize{13.6pt}\xipt\@xipt
  34. \abovedisplayskip 11pt plus3pt minus6pt\belowdisplayskip \abovedisplayskip
  35. \abovedisplayshortskip \z@ plus3pt\belowdisplayshortskip 6.5pt plus3.5pt
  36. minus3pt}
  37. \def\small{\@setsize\small{12pt}\xpt\@xpt
  38. \abovedisplayskip 10pt plus2pt minus5pt\belowdisplayskip \abovedisplayskip
  39. \abovedisplayshortskip \z@ plus3pt\belowdisplayshortskip 6pt plus3pt minus3pt}
  40. \def\footnotesize{\@setsize\footnotesize{11pt}\ixpt\@ixpt
  41. \abovedisplayskip 8pt plus 2pt minus 4pt\belowdisplayskip \abovedisplayskip
  42. \abovedisplayshortskip \z@ plus 1pt\belowdisplayshortskip 4pt plus 2pt minus
  43. 2pt}
  44. \def\scriptsize{\@setsize\scriptsize{9.5pt}\viiipt\@viiipt}
  45. \def\tiny{\@setsize\tiny{7pt}\vipt\@vipt}
  46. \def\large{\@setsize\large{14pt}\xiipt\@xiipt}
  47. \def\Large{\@setsize\Large{18pt}\xivpt\@xivpt}
  48. \def\LARGE{\@setsize\LARGE{22pt}\xviipt\@xviipt}
  49. \def\huge{\@setsize\huge{25pt}\xxpt\@xxpt}
  50. \def\Huge{\@setsize\Huge{30pt}\xxvpt\@xxvpt}
  51. \or 
  52. \def\@normalsize{\@setsize\normalsize{15pt}\xiipt\@xiipt
  53. \abovedisplayskip 12pt plus3pt minus7pt\belowdisplayskip \abovedisplayskip
  54. \abovedisplayshortskip \z@ plus3pt\belowdisplayshortskip 6.5pt plus3.5pt
  55. minus3pt}
  56. \def\small{\@setsize\small{13.6pt}\xipt\@xipt
  57. \abovedisplayskip 11pt plus3pt minus6pt\belowdisplayskip \abovedisplayskip
  58. \abovedisplayshortskip \z@ plus3pt\belowdisplayshortskip 6.5pt plus3.5pt
  59. minus3pt}
  60. \def\footnotesize{\@setsize\footnotesize{12pt}\xpt\@xpt
  61. \abovedisplayskip 10pt plus2pt minus5pt\belowdisplayskip \abovedisplayskip
  62. \abovedisplayshortskip \z@ plus3pt\belowdisplayshortskip 6pt plus3pt minus3pt}
  63. \def\scriptsize{\@setsize\scriptsize{9.5pt}\viiipt\@viiipt}
  64. \def\tiny{\@setsize\tiny{7pt}\vipt\@vipt}
  65. \def\large{\@setsize\large{18pt}\xivpt\@xivpt}
  66. \def\Large{\@setsize\Large{22pt}\xviipt\@xviipt}
  67. \def\LARGE{\@setsize\LARGE{25pt}\xxpt\@xxpt}
  68. \def\huge{\@setsize\huge{30pt}\xxvpt\@xxvpt}
  69. \let\Huge=\huge
  70. \fi
  71. \normalsize 
  72.  
  73. \oddsidemargin 53pt \evensidemargin 53pt \marginparwidth 90pt \marginparsep
  74. 11pt \marginparpush 5pt 
  75.  \topmargin 27pt \headheight 12pt \headsep 45pt \footheight 12pt \footskip
  76. 25pt 
  77. \textheight 505pt \textwidth 365pt \columnsep 10pt \columnseprule 0pt 
  78. \raggedbottom 
  79. \footnotesep 12pt \skip\footins 10pt plus 2pt minus 4pt 
  80. \floatsep 12pt plus 2pt minus 2pt
  81. \textfloatsep 20pt plus 2pt minus 4pt
  82. \intextsep 12pt plus 2pt minus 2pt
  83. \dblfloatsep 12pt plus 2pt minus 2pt
  84. \dbltextfloatsep 20pt plus 2pt minus 4pt
  85. \@maxsep 20pt
  86. \@dblmaxsep 20pt
  87. \@fptop 0pt plus 1fil
  88. \@fpsep 8pt plus 2fil
  89. \@fpbot 0pt plus 1fil
  90. \@dblfptop 0pt plus 1fil
  91. \@dblfpsep 8pt plus 2fil
  92. \@dblfpbot 0pt plus 1fil
  93.  
  94.  
  95.  
  96. \newdimen\longindentation
  97. \longindentation=.5\textwidth
  98. \newdimen\indentedwidth
  99. \indentedwidth=\textwidth
  100. \advance\indentedwidth -\longindentation
  101.  
  102. \def\opening#1{\ifx\@empty\fromaddress
  103.  \thispagestyle{firstpage} 
  104.  {\raggedleft\@date\par}
  105.  \else \thispagestyle{empty} 
  106.  {\raggedleft\begin{tabular}{l}\ignorespaces\fromaddress \\*[2\parskip]
  107.  \@date \end{tabular}\par}
  108.  \fi
  109.  \vspace{2\parskip}
  110.  {\raggedright \toname \\ \toaddress \par}\vspace{2\parskip}
  111.  #1\par\nobreak}
  112. \long\def\closing#1{\par\nobreak\vspace{\parskip}
  113.  \stopbreaks
  114.  \noindent
  115.  \ifx\@empty\fromaddress\else
  116.  \hspace*{\longindentation}\fi
  117.  \parbox{\indentedwidth}{\raggedright
  118.  \ignorespaces #1\\[6\parskip]
  119.  \ifx\@empty\fromsig 
  120.  \fromname
  121.  \else \fromsig \fi\strut}
  122.  \par}
  123.  
  124. \def\ps{\par\startbreaks}
  125. \def\cc#1{\par\noindent
  126. \parbox[t]{\textwidth}{\@hangfrom{\rm cc: }\ignorespaces #1\strut}\par}
  127. \def\encl#1{\par\noindent
  128. \parbox[t]{\textwidth}{\@hangfrom{\rm encl: }\ignorespaces #1\strut}\par}
  129. \def\stopletter{}
  130.  
  131. \def\returnaddress{}
  132. \newcount\labelcount
  133.  
  134. \def\startlabels{\labelcount=0 \baselineskip=0pt \lineskip=0pt
  135. \pagestyle{empty}
  136. \let\@texttop=\relax
  137. \topmargin -50pt
  138. \headsep 0pt
  139. \oddsidemargin -35pt
  140. \evensidemargin -35pt
  141. \textheight 10in
  142. \@colht\textheight \@colroom\textheight \vsize\textheight
  143. \textwidth 550pt
  144. \columnsep 25pt
  145. \xpt
  146. \baselineskip=0pt
  147. \lineskip=0pt
  148. \boxmaxdepth=0pt
  149. \parindent=0pt \twocolumn\relax}
  150. \def\mlabel#1#2{\setbox0\vbox{\parbox[b]{3.6in}{\strut\ignorespaces #2}}
  151.  \vbox to 2in{\vss \box0 \vss}}
  152.  
  153.  
  154.  
  155. \long\def\letter#1{\newpage
  156.  \c@page\@ne
  157.  \interlinepenalty=200 \@processto{#1}}
  158. \def\endletter{\stopletter\@@par\pagebreak\@@par
  159.  \if@filesw 
  160.  \begingroup 
  161.  \def\protect{\string}
  162.  \let\\=\relax
  163.  \def\protect##1{\string##1\space}
  164.  \immediate\write\@auxout{\string\mlabel{\returnaddress}{\toname
  165.  \\\toaddress}}
  166.  \endgroup 
  167.  \fi}
  168. \long\def\@processto#1{\@xproc #1\\@@@\ifx\toaddress\@empty 
  169.  \else \@yproc #1@@@\fi}
  170. \long\def\@xproc #1\\#2@@@{\def\toname{#1}\def\toaddress{#2}}
  171. \long\def\@yproc #1\\#2@@@{\def\toaddress{#2}}
  172. \def\stopbreaks{\interlinepenalty \@M
  173.  \def\par{\@@par\nobreak}\let\\=\@nobreakcr
  174.  \let\vspace\@nobreakvspace}
  175. \def\@nobreakvspace{\@ifstar{\@nobreakvspacex}{\@nobreakvspacex}}
  176. \def\@nobreakvspacex#1{\ifvmode\nobreak\vskip #1\relax\else
  177.  \@bsphack\vadjust{\nobreak\vskip #1}\@esphack\fi}
  178. \def\@nobreakcr{\vadjust{\penalty\@M}\@ifstar{\@xnewline}{\@xnewline}}
  179. \def\startbreaks{\let\\=\@normalcr
  180.  \interlinepenalty 200\def\par{\@@par\penalty 200}}
  181. \def\name#1{\def\fromname{#1}}
  182. \def\signature#1{\def\fromsig{#1}}
  183. \def\fromsig{}
  184. \long\def\address#1{\def\fromaddress{#1}}
  185. \def\fromaddress{}
  186. \def\location#1{\def\fromlocation{#1}}
  187. \def\fromlocation{}
  188. \def\telephone#1{\def\telephonenum{#1}}
  189. \def\telephonenum{}
  190. \def\document{\endgroup
  191.  \@colht\textheight \@colroom\textheight \vsize\textheight
  192.  \columnwidth\textwidth \@clubpenalty\clubpenalty
  193.  \if@twocolumn \advance\columnwidth -\columnsep 
  194.  \divide\columnwidth\tw@ \hsize\columnwidth \@firstcolumntrue 
  195.  \fi
  196.  \hsize\columnwidth \linewidth\hsize
  197.  \begingroup\@floatplacement\@dblfloatplacement\endgroup
  198.  \if@filesw \immediate\openout\@mainaux=\jobname.aux
  199.  \immediate\write\@mainaux{\string\startlabels\string\@startlabels}\fi
  200.  \def\do##1{\let ##1\@notprerr}
  201.  \@preamblecmds
  202.  \let\do\noexpand 
  203.  \@normalsize\everypar{}}
  204. \def\enddocument{\@checkend{document}\newpage\begingroup 
  205. \if@filesw \immediate\closeout\@mainaux 
  206. \makeatletter\input \jobname.aux\clearpage
  207. \fi\endgroup\deadcycles\z@\@@end}
  208.  
  209. \def\makelabels{\@fileswtrue}
  210. \def\@startlabels{}
  211.  
  212.  
  213.  
  214. \def\@texttop{\ifnum\c@page=1\vskip 0pt plus .00006fil\relax\fi}
  215. \def\ps@headings{\def\@oddhead{\sl To \ignorespaces\toname \hfil \@date
  216.  \hfil Page \thepage}\def\@oddfoot{}}
  217. \def\ps@empty{\def\@oddhead{}\def\@oddfoot{}\def\@evenhead{}\def\@evenfoot{}}
  218.  
  219. \def\ps@firstpage{\def\@oddhead{}\def\@oddfoot{\raisebox
  220.  {-45pt}[0pt]{\hbox to \textwidth
  221.  {\hspace*{100pt}\xpt\fromlocation \hfill
  222. \telephonenum}}\hss}\def\@evenhead{}\def\@evenfoot{}}
  223. \def\ps@plain{\def\@oddhead{}\def\@oddfoot{\rm\hfil\thepage
  224.  \hfil}\def\@evenhead{}\let\@evenfoot\@oddfoot}
  225.  
  226. \parskip .7em \parindent 0pt \topsep .4em \partopsep 0pt \itemsep .4em 
  227. \@lowpenalty 51 \@medpenalty 151 \@highpenalty 301 
  228. \@beginparpenalty -\@lowpenalty \@endparpenalty -\@lowpenalty \@itempenalty
  229. -\@lowpenalty 
  230.  
  231.  
  232.  
  233. \leftmargini 2.5em
  234. \leftmarginii 2.2em \leftmarginiii 1.87em \leftmarginiv 1.7em \leftmarginv 1em
  235. \leftmarginvi 1em
  236. \leftmargin\leftmargini
  237. \labelwidth\leftmargini\advance\labelwidth-\labelsep
  238. \labelsep 5pt
  239. \parsep 0pt
  240. \let\@listi\relax
  241. \def\@listii{\leftmargin\leftmarginii
  242.  \labelwidth\leftmarginii\advance\labelwidth-\labelsep}
  243. \def\@listiii{\leftmargin\leftmarginiii
  244.  \labelwidth\leftmarginiii\advance\labelwidth-\labelsep
  245.  \topsep .2em 
  246.  \itemsep \topsep}
  247. \def\@listiv{\leftmargin\leftmarginiv
  248.  \labelwidth\leftmarginiv\advance\labelwidth-\labelsep}
  249. \def\@listv{\leftmargin\leftmarginv
  250.  \labelwidth\leftmarginv\advance\labelwidth-\labelsep}
  251. \def\@listvi{\leftmargin\leftmarginvi
  252.  \labelwidth\leftmarginvi\advance\labelwidth-\labelsep}
  253.  
  254. \def\labelenumi{\arabic{enumi}.} 
  255. \def\theenumi{\arabic{enumi}} 
  256. \def\labelenumii{(\alph{enumii})}
  257. \def\theenumii{\alph{enumii}}
  258. \def\p@enumii{\theenumi}
  259. \def\labelenumiii{\roman{enumiii}.}
  260. \def\theenumiii{\roman{enumiii}}
  261. \def\p@enumiii{\theenumi(\theenumii)}
  262. \def\labelenumiv{\Alph{enumiv}.}
  263. \def\theenumiv{\Alph{enumiv}} 
  264. \def\p@enumiv{\p@enumiii\theenumiii}
  265.  
  266. \def\labelitemi{$\bullet$}
  267. \def\labelitemii{\bf --}
  268. \def\labelitemiii{$\ast$}
  269. \def\labelitemiv{$\cdot$}
  270. \def\verse{\let\\=\@centercr 
  271.  \list{}{\itemsep\z@ \itemindent -15pt\listparindent \itemindent 
  272.  \rightmargin\leftmargin\advance\leftmargin 15pt}\item[]}
  273. \let\endverse\endlist
  274. \def\quotation{\list{}{\listparindent 1.5em
  275.  \itemindent\listparindent
  276.  \rightmargin\leftmargin}\item[]}
  277. \let\endquotation=\endlist
  278. \def\quote{\list{}{\rightmargin\leftmargin}\item[]}
  279. \let\endquote=\endlist
  280.  
  281. \def\descriptionlabel#1{\hspace\labelsep \bf #1}
  282. \def\description{\list{}{\labelwidth\z@ \itemindent-\leftmargin
  283.  \let\makelabel\descriptionlabel}}
  284. \let\enddescription\endlist
  285.  
  286.  
  287.  
  288. \def\theequation{\arabic{equation}}
  289.  
  290. \arraycolsep 5pt \tabcolsep 6pt \arrayrulewidth .4pt \doublerulesep 2pt 
  291. \tabbingsep \labelsep 
  292. \skip\@mpfootins = \skip\footins
  293. \fboxsep = 3pt \fboxrule = .4pt 
  294.  
  295. \def\footnoterule{\kern-1\p@ 
  296.  \hrule width .4\columnwidth 
  297.  \kern .6\p@} 
  298.  
  299. \long\def\@makefntext#1{\noindent \hangindent 5pt\hbox 
  300.  to 5pt{\hss $^{\@thefnmark}$}#1}
  301.  
  302.  
  303. \c@topnumber=2
  304. \def\topfraction{.7}
  305. \c@bottomnumber=1
  306. \def\bottomfraction{.3}
  307. \c@totalnumber=3
  308. \def\textfraction{.2}
  309. \def\floatpagefraction{.5}
  310. \c@dbltopnumber= 2
  311. \def\dbltopfraction{.7}
  312. \def\dblfloatpagefraction{.5}
  313.  
  314. \def\today{\ifcase\month\or
  315.  January\or February\or March\or April\or May\or June\or
  316.  July\or August\or September\or October\or November\or December\fi
  317.  \space\number\day, \number\year}
  318.  
  319.  
  320. \smallskipamount=.5\parskip \medskipamount=\parskip
  321. \bigskipamount=2\parskip
  322. \ps@plain \pagenumbering{arabic} \onecolumn \@fileswfalse